﻿Imports System.Data.OleDb
Public Class frm_empresa

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAgregar.Click
        If (txtnombEmp.Text = "") Or (txtdireEmp.Text = "") Or (txtTelEmp.Text = "") Then
            MsgBox("Complete Los campos", MsgBoxStyle.Critical, "ERROR!")
        Else
            Dim newEmpresa As New C_Empresa
            'titulo(grbDatosEmp)
            newEmpresa.NuevaEmpresa()
            frmNewAuditado.cbo_empr.Items.Clear()
            CargarEmpresas(frmNewAuditado.cbo_empr)
            Limpiar(grbDatosEmp)

            mfgEmpresas.Clear()
            mfgEmpresas.Rows = 1
            TitulosGridEmpresa(mfgEmpresas)
            listadoEmpresas(mfgEmpresas)

            'Close()
        End If
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Limpiar(grbDatosEmp)
        Close()
    End Sub

    Private Sub frm_empresa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        btModificar.Enabled = False
        btAgregar.Enabled = True
        mfgEmpresas.Clear()
        mfgEmpresas.Rows = 1
        TitulosGridEmpresa(mfgEmpresas)
        listadoEmpresas(mfgEmpresas)
    End Sub

    Private Sub mfgEmpresas_DblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles mfgEmpresas.DblClick
        btAgregar.Enabled = False
        btModificar.Enabled = True
        mfgEmpresas.Col = 0
        txtidEmpresa.Text = mfgEmpresas.Text
        mfgEmpresas.Col = 1
        txtnombEmp.Text = mfgEmpresas.Text
        mfgEmpresas.Col = 2
        txtdireEmp.Text = mfgEmpresas.Text
        mfgEmpresas.Col = 3
        txtTelEmp.Text = mfgEmpresas.Text
        mfgEmpresas.Col = 4
        txtemailempr.Text = mfgEmpresas.Text
    End Sub

    Private Sub btModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btModificar.Click
        Dim ActualizarEmpresa As New C_Empresa
        ActualizarEmpresa.updateEmpresa()

        mfgEmpresas.Clear()
        mfgEmpresas.Rows = 1
        TitulosGridEmpresa(mfgEmpresas)
        listadoEmpresas(mfgEmpresas)
    End Sub
End Class